home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / planetkit / amigakit / yam13_2.lha / YAM / Rexx / Register.rexx next >
OS/2 REXX Batch file  |  1996-02-28  |  650b  |  14 lines
  1. /* register.rexx */
  2. OPTIONS RESULTS
  3. ADDRESS YAM
  4. SetFolder 3                                  /* Archiv-Postfach wählen */
  5. GetFolderInfo MAX; eintraege = RESULT        /* Anzahl Mails abfragen  */
  6. DO i=0 TO eintraege-1                        /* Gehe alle Mails durch  */
  7.   SetMail i                                  /* Aktuelle Mail setzen   */
  8.   GetMailInfo SUBJECT                        /* Betreff abfragen       */
  9.   IF RESULT = 'YAM Registrierung' THEN DO    /* Kriterium erfüllt?     */
  10.     GetMailInfo FROM                         /* Absender Abfragen und  */
  11.     SAY RESULT                               /* ausgeben               */
  12.   END
  13. END
  14.